home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / database / db3stock / lincount.prg < prev    next >
Text File  |  1986-03-31  |  845b  |  44 lines
  1. * -------------------------
  2. * L I N C O U N T . P R G
  3. * -------------------------
  4.  
  5. If devicetest="P" .and. LC>linemax
  6.    overmax=.t.
  7.    Ppage=Ppage+1
  8.    if Ppage>1
  9.       eject
  10.       @ 2,70 say "Page "+str(Ppage,3,0)
  11.    endif
  12. endif
  13.  
  14. If devicetest="S" .and. LC>linemax
  15.    overmax=.t.
  16.    Spage=Spage+1
  17.    if Spage<2
  18.       LC=4
  19.       do while LC<24
  20.          @ LC,1 say space(77)
  21.          LC=LC+1
  22.       enddo
  23.    endif
  24.    if Spage>1
  25.       test="CS"
  26.       msg="<C>ontinue with the display or <S>top the display?"
  27.       do linprm23
  28.       if tz="S"
  29.          stopflag=.t.
  30.          return
  31.       endif
  32.       LC=4
  33.       do while LC<24
  34.          @ LC,1 say space(77)
  35.          LC=LC+1
  36.       enddo
  37.       set color to 15/0
  38.       @ 4,69 say "Page "+str(Spage,3,0)
  39.       set color to 7/0
  40.       LC=5
  41.    endif
  42. endif
  43. return
  44.